Time Warp/Time Warp.iso/mac/Time Warp/Time Warp.DXR/Shared_38_LocateSprite.ls

Text File | 1997-05-23 | 667 b | 23 lines

on LocateSprite iconCastNum
  global IconCount, Hand
  if IconCount > 13 then
    alert("Keine weiteren Icons m├╢glich. Gebrauche sie bevor Du andere sammeln kannst.")
    exit
  end if
  set limit to 33 + IconCount
  repeat with i = 33 to limit
    if the castNum of sprite i = 600 then
      puppetSprite(i, 1)
      set the castNum of sprite i to iconCastNum
      set the moveableSprite of sprite i to 1
      set the locV of sprite i to 455
      set the locH of sprite i to 615 - ((i - 33) * 48)
      set the cursor of sprite i to Hand
      updateStage()
      set IconCount to IconCount + 1
      exit repeat
    end if
  end repeat
  updateSpritelist()
end